Function HTMLRemoveEntities(ByVal encodedstring)
	HTMLRemoveEntities= encodedstring
	dim strEntities, Entitie, n, charEntitie, entitieSymbol
	strEntities = """" && ÁÁ áá ´´ ÀÀ àà ÃÃ ãã ÇÇ çç ÉÉ éé ÊÊ êê ÍÍ íí ÑÑ ññ ÓÓ óó ÔÔ ôô ÕÕ õõ ÚÚ úú ÜÜ üü"
	Entitie = split(strEntities, " ")
	
	for n = 0 to ubound(Entitie)
		entitieSymbol = left(Entitie(n), len(Entitie(n)) - 1)
		charEntitie = right(Entitie(n), 1)
		HTMLRemoveEntities = replace(HTMLRemoveEntities, entitieSymbol, charEntitie, 1, -1, 0)
	Next
End function

' para chamar utilize:
' Response.Write HTMLRemoveEntities("Chitãozinho e Xororó")